home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / avwyyt1a / master32.bas < prev    next >
BASIC Source File  |  1997-02-19  |  41KB  |  1,424 lines

  1. Attribute VB_Name = "Master32"
  2. Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
  3. Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
  4. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  5. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  6. Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  7. Private Declare Sub RtlMoveMemory Lib "kernel32" (ByRef dest As Any, ByRef Source As Any, ByVal nBytes As Long)
  8. Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
  9. Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
  10. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  11. Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  12. Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  13. Declare Function dwGetStringFromLPSTR Lib "dwspy32.dll" (ByVal lpcopy As Long) As String
  14. Declare Sub dwCopyDataBynum Lib "dwspy32.dll" Alias "dwCopyData" (ByVal Source&, ByVal dest&, ByVal nCount&)
  15. Declare Function dwGetAddressForObject& Lib "dwspy32.dll" (object As Any)
  16. Declare Sub dwCopyDataByString Lib "dwspy32.dll" Alias "dwCopyData" (ByVal Source As String, ByVal dest As Long, ByVal nCount&)
  17. Declare Function dwXCopyDataBynumFrom& Lib "dwspy32.dll" Alias "dwXCopyDataFrom" (ByVal mybuf As Long, ByVal foreignbuf As Long, ByVal size As Integer, ByVal foreignPID As Long)
  18. Declare Function dwGetWndInstance& Lib "dwspy32.dll" (ByVal hwnd&)
  19. Declare Function RegisterWindowMessage& Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String)
  20. Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
  21. Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
  22. Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  23. Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
  24. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  25. Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
  26. Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
  27. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  28. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  29. Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  30. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  31. Declare Function CreatePopupMenu Lib "user32" () As Long
  32. Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  33. Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  34. Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  35. Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  36. Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  37. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  38. Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  39. Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
  40. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  41. Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  42. Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
  43. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  44. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  45. Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  46. Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  47. Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  48. Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  49. Declare Function DestroyMenu Lib "user32" (ByVal hMenu%) As Integer
  50.  
  51. Public Const WM_CHAR = &H102
  52. Public Const WM_SETTEXT = &HC
  53. Public Const WM_USER = &H400
  54. Public Const WM_KEYDOWN = &H100
  55. Public Const WM_KEYUP = &H101
  56. Public Const WM_LBUTTONDOWN = &H201
  57. Public Const WM_LBUTTONUP = &H202
  58. Public Const WM_CLOSE = &H10
  59. Public Const WM_COMMAND = &H111
  60. Public Const WM_CLEAR = &H303
  61. Public Const WM_DESTROY = &H2
  62. Public Const WM_GETTEXT = &HD
  63. Public Const WM_GETTEXTLENGTH = &HE
  64. Public Const WM_LBUTTONDBLCLK = &H203
  65. Public Const BM_GETCHECK = &HF0
  66. Public Const BM_GETSTATE = &HF2
  67. Public Const BM_SETCHECK = &HF1
  68. Public Const BM_SETSTATE = &HF3
  69.  
  70. Public Const LB_GETITEMDATA = &H199
  71. Public Const LB_GETCOUNT = &H18B
  72. Public Const LB_ADDSTRING = &H180
  73. Public Const LB_DELETESTRING = &H182
  74. Public Const LB_FINDSTRING = &H18F
  75. Public Const LB_FINDSTRINGEXACT = &H1A2
  76. Public Const LB_GETCURSEL = &H188
  77. Public Const LB_GETTEXT = &H189
  78. Public Const LB_GETTEXTLEN = &H18A
  79. Public Const LB_SELECTSTRING = &H18C
  80. Public Const LB_SETCOUNT = &H1A7
  81. Public Const LB_SETCURSEL = &H186
  82. Public Const LB_SETSEL = &H185
  83. Public Const LB_INSERTSTRING = &H181
  84.  
  85. Public Const VK_HOME = &H24
  86. Public Const VK_RIGHT = &H27
  87. Public Const VK_CONTROL = &H11
  88. Public Const VK_DELETE = &H2E
  89. Public Const VK_DOWN = &H28
  90. Public Const VK_LEFT = &H25
  91. Public Const VK_RETURN = &HD
  92. Public Const VK_SPACE = &H20
  93. Public Const VK_TAB = &H9
  94.  
  95. Public Const HWND_TOP = 0
  96. Public Const HWND_TOPMOST = -1
  97. Public Const HWND_NOTOPMOST = -2
  98. Public Const SWP_NOMOVE = &H2
  99. Public Const SWP_NOSIZE = &H1
  100. Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  101.  
  102. Public Const GW_CHILD = 5
  103. Public Const GW_HWNDFIRST = 0
  104. Public Const GW_HWNDLAST = 1
  105. Public Const GW_HWNDNEXT = 2
  106. Public Const GW_HWNDPREV = 3
  107. Public Const GW_MAX = 5
  108. Public Const GW_OWNER = 4
  109. Public Const SW_MAXIMIZE = 3
  110. Public Const SW_MINIMIZE = 6
  111. Public Const SW_HIDE = 0
  112. Public Const SW_RESTORE = 9
  113. Public Const SW_SHOW = 5
  114. Public Const SW_SHOWDEFAULT = 10
  115. Public Const SW_SHOWMAXIMIZED = 3
  116. Public Const SW_SHOWMINIMIZED = 2
  117. Public Const SW_SHOWMINNOACTIVE = 7
  118. Public Const SW_SHOWNOACTIVATE = 4
  119. Public Const SW_SHOWNORMAL = 1
  120.  
  121. Public Const MF_APPEND = &H100&
  122. Public Const MF_DELETE = &H200&
  123. Public Const MF_CHANGE = &H80&
  124. Public Const MF_ENABLED = &H0&
  125. Public Const MF_DISABLED = &H2&
  126. Public Const MF_REMOVE = &H1000&
  127. Public Const MF_POPUP = &H10&
  128. Public Const MF_STRING = &H0&
  129. Public Const MF_UNCHECKED = &H0&
  130. Public Const MF_CHECKED = &H8&
  131. Public Const MF_GRAYED = &H1&